d:/ftp_library/ermo/karaoke/
http://www.nyvej.dk/mortensen
/

Filliste (Detail Page)

Use this page to view a single document on this web site.

d:\ftp_library\ermo\karaoke\counter.asp
http://www.nyvej.dk/mortensen/karaoke/counter.asp

    file size:  1.464 characters
 file created:  3. december 2004  10:01:24
last modified:  3. december 2004  10:01:24

DOCUMENT CONTENTS

<%
' Simple ASP Hit Counter
' Scott A. Moss - 14th Nov. 1999
' www.vbstuff.cjb.net

' Declare Variables
Dim objFSO, objCountFile
Dim iCount
Dim I

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

' Open Counter text File
' If you are on a Web Host that allows ASP but you are not able to
' write to the directory that your ASP code is in, but you have a 
' CGI-BIN replace [> Server.MapPath("/counter.cnt"), 1, True) <] 
' with [> Server.MapPath("cgi-bin/users/accountname/counter.cnt"), 1, True) <]
' or what ever the path of your CGI-BIN is.
Set objCountFile = objFSO.OpenTextFile(Server.MapPath("counter.cnt"), 1, True)
If Not objCountFile.AtEndOfStream Then iCount = CLng(objCountFile.ReadAll) Else iCount = 0
objCountFile.Close

Set objCountFile = Nothing
iCount = iCount + 1

' Save Changed Counter text File
' If you are on a Web Host that allows ASP but you are not able to
' write to the directory that your ASP code is in, but you have a 
' CGI-BIN replace [> Server.MapPath("/counter.cnt"), 1, True) <] 
' with [> Server.MapPath("cgi-bin/users/accountname/counter.cnt"), 1, True) <]
' or what ever the path of your CGI-BIN is.
Set objCountFile = objFSO.CreateTextFile(Server.MapPath("counter.cnt"), True)
objCountFile.Write iCount
objCountFile.Close

' Write Counter to ASP
Set objCountFile = Nothing
Set objFSO = Nothing
Response.Write ("<CENTER><FONT SIZE='1'>") & iCount & ("</FONT></CENTER>")
%>

Erik Mortensen
5. september 2010 08:07:09